home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 44 / PC Actual CD 44.iso / Linux / Cygwin / full.exe / Disk1 / data1.cab / Tools / share / tix4.1 / pref / TK.csc < prev    next >
Encoding:
Text File  |  1998-12-04  |  1.9 KB  |  70 lines
  1. proc tixPref:SetScheme-Color:TK {} {
  2.  
  3.     global tixOption
  4.  
  5.     set tixOption(bg)           #d9d9d9
  6.     set tixOption(fg)           black
  7.  
  8.     set tixOption(dark1_bg)     #c3c3c3
  9.     set tixOption(dark1_fg)     black
  10.     set tixOption(dark2_bg)     #a3a3a3
  11.     set tixOption(dark2_fg)     black
  12.     set tixOption(inactive_bg)  #a3a3a3
  13.     set tixOption(inactive_fg)  black
  14.  
  15.     set tixOption(light1_bg)    #ececec
  16.     set tixOption(light1_fg)    white
  17.     set tixOption(light2_bg)    #fcfcfc
  18.     set tixOption(light2_fg)    white
  19.  
  20.     set tixOption(active_bg)    $tixOption(dark1_bg)
  21.     set tixOption(active_fg)    $tixOption(fg)
  22.     set tixOption(disabled_fg)  gray55
  23.  
  24.     set tixOption(input1_bg)    #d9d9d9
  25.     set tixOption(input2_bg)    #d9d9d9
  26.     set tixOption(output1_bg)   $tixOption(dark1_bg)
  27.     set tixOption(output2_bg)   $tixOption(bg)
  28.  
  29.     set tixOption(select_fg)    black
  30.     set tixOption(select_bg)    #c3c3c3
  31.  
  32.     set tixOption(selector)    #b03060
  33.  
  34. }
  35. proc tixPref:SetScheme-Mono:TK {} {
  36.  
  37.  
  38.     global tixOption
  39.  
  40.     set tixOption(bg)           lightgray
  41.     set tixOption(fg)           black
  42.  
  43.     set tixOption(dark1_bg)     gray70
  44.     set tixOption(dark1_fg)     black
  45.     set tixOption(dark2_bg)     gray60
  46.     set tixOption(dark2_fg)     white
  47.     set tixOption(inactive_bg)  lightgray
  48.     set tixOption(inactive_fg)  black
  49.  
  50.     set tixOption(light1_bg)    gray90
  51.     set tixOption(light1_fg)    white
  52.     set tixOption(light2_bg)    gray95
  53.     set tixOption(light2_fg)    white
  54.  
  55.     set tixOption(active_bg)    gray90
  56.     set tixOption(active_fg)    $tixOption(fg)
  57.     set tixOption(disabled_fg)  gray55
  58.  
  59.     set tixOption(input1_bg)    $tixOption(light1_bg)
  60.     set tixOption(input2_bg)    $tixOption(light1_bg)
  61.     set tixOption(output1_bg)   $tixOption(light1_bg)
  62.     set tixOption(output2_bg)   $tixOption(light1_bg)
  63.  
  64.     set tixOption(select_fg)    white
  65.     set tixOption(select_bg)    black
  66.  
  67.     set tixOption(selector)    black
  68.  
  69. }
  70.